home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / MYSCRIPT.ZIP / myscript.txt
Text File  |  1997-01-06  |  5KB  |  142 lines
  1. /e {  
  2.   %text = $replace(*1,a,Γ)
  3.   %text = $replace(%text,A,├)
  4.   %text = $replace(%text,b,▀)
  5.   %text = $replace(%text,ae,µ)
  6.   %text = $replace(%text,c,ó)
  7.   %text = $replace(%text,d,╨)
  8.   %text = $replace(%text,e, δ)
  9.   %text = $replace(%text,E, δ)
  10.   %text = $replace(%text,i,ª)
  11.   %text = $replace(%text,l,ú)
  12.   %text = $replace(%text,m,/|\)
  13.   %text = $replace(%text,n, ±)
  14.   %text = $replace(%text,o,°)
  15.   %text = $replace(%text,O,÷)
  16.   %text = $replace(%text,P,■)
  17.   %text = $replace(%text,w,\\')
  18.   %text = $replace(%text,W,\\')
  19.   %text = $replace(%text,f,f)
  20.   %text = $replace(%text,F,f)
  21.   %text = $replace(%text,cks,X)
  22.   %text = $replace(%text,r,«)
  23.   %text = $replace(%text,s,º )
  24.   %text = $replace(%text,t,t)
  25.   %text = $replace(%text,T,t)
  26.   %text = $replace(%text,u,√)
  27.   %text = $replace(%text,y, )
  28.   %text = $replace(%text,?,┐)
  29.   %text = $replace(%text,z,░z░)
  30.   %text = $replace(%text,!,í)
  31.   /msg $Active %text 
  32. }
  33. /rainbow {
  34.   unset %textfinal
  35.   set %rainbow *1
  36.   set %text.change 0
  37.   :beginning
  38.   inc %text.change
  39.   if %text.change > $len(%rainbow) goto end
  40.   set %rand1 $rand(1,15)
  41.   set %text2add  $+ %rand1 $+ $mid(%text.change,1,%rainbow) $+ 
  42.   if (%text.change == 1) { set %textfinal %text2add }
  43.   else set %textfinal %textfinal $+ %text2add
  44.   goto beginning
  45.   :end
  46.   msg $chan %textfinal
  47. }
  48. /bgr {
  49.   unset %textfinal
  50.   set %rainbow *1
  51.   set %text.change 0
  52.   :beginning
  53.   inc %text.change
  54.   if %text.change > $len(%rainbow) goto end
  55.   :randomize
  56.   set %rand1 $rand(1,15)
  57.   set %rand2 $rand(1,15)
  58.   if %rand1 == %rand2 goto randomize
  59.   set %text2add  $+ %rand1 $+ , $+ %rand2 $+ $mid(%text.change,1,%rainbow) $+ 
  60.   if (%text.change == 1) { set %textfinal %text2add }
  61.   else set %textfinal %textfinal $+ %text2add
  62.   goto beginning
  63.   :end
  64.   msg $chan %textfinal
  65. }
  66. ;xxxxxxxxxxxxxxxxxxxxxxxxx ALL FOREGROUND COLORS 1-15 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  67. /c say 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
  68. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx RAINBOW xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  69. /r {
  70.   set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  71.   :loop
  72.   set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  73.   inc %p
  74.   if ( $mid(%p,1,%i) != á) { inc %c }
  75.   if ( %c > 6 ) { set %c 1 }
  76.   if ( $mid(%p,1,%i) != $null ) { goto loop }
  77.   say %o
  78.   unset %o %i %p %c
  79. }
  80. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BRICK xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  81. /brick { %num = 1 | unset %msg  | %msg =  | %color = p
  82.   :start
  83.   if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  84.   if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  85.   :add
  86.   if $mid(%num,1, *1) != $null {
  87.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  88.     inc %num 
  89.   goto start  }
  90.   say %msg
  91. }
  92. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SMILY xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  93. /smile say 1,8:)
  94. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx X-MAS xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  95. /xmas { %num = 1 | unset %msg  | %msg =  | %color = p
  96.   :start
  97.   if %color == p { %num2 = 3 | %num3 = 4 | %color = y | goto add }
  98.   if %color == y  { %num2 = 4 | %num3 = 3 | %color = p | goto add }
  99.   :add
  100.   if $mid(%num,1, *1) != $null {
  101.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  102.     inc %num 
  103.   goto start  }
  104.   say %msg
  105. }
  106. xxxxxxxxxxxxxxxxxxxxxxxxxxxxx RAINBOW xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  107. /r {
  108.   set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  109.   :loop
  110.   set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  111.   inc %p
  112.   if ( $mid(%p,1,%i) != á) { inc %c }
  113.   if ( %c > 6 ) { set %c 1 }
  114.   if ( $mid(%p,1,%i) != $null ) { goto loop }
  115.   say %o
  116.   unset %o %i %p %c
  117. }
  118. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BRICK xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  119. /brick { %num = 1 | unset %msg  | %msg =  | %color = p
  120.   :start
  121.   if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  122.   if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  123.   :add
  124.   if $mid(%num,1, *1) != $null {
  125.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  126.     inc %num 
  127.   goto start  }
  128.   say %msg
  129. }
  130. ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Coca Cola xxxxxxxxxxxxxxxxxxxxxxxxxxxx
  131. /coke { %num = 1 | unset %msg  | %msg =  | %color = p
  132.   :start
  133.   if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  134.   if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  135.   :add
  136.   if $mid(%num,1, *1) != $null {
  137.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  138.     inc %num 
  139.   goto start  }
  140.   say %msg
  141. }
  142.